textInput( "main", "main", "my main" ) checkboxInput( "horizontal", "horizontal" ) library( shinyLikert ) plot( renderShinyLikert( createTestData(), main = reactive({input$main}), horizontal = reactive({input$horizontal}), as.percent = TRUE ) )
textInput( "main2", "main2", "my main" ) checkboxInput( "as.percent", "as.percent" ) plot( renderShinyLikert( createTestData(), main = reactive({input$main2}), as.percent = reactive({input$as.percent}), split = "gender" ) )
sliderInput("center","center",1.5,4.5,3,0.5) plot( renderShinyLikert( createTestData(), dropdown = "difficulty", center = reactive({input$center}), group = "gender" ) )
checkboxInput("as.percent2","as.percent2") plot( renderShinyLikert( createTestData(), dropdown = "difficulty", as.percent = reactive({ input$as.percent2}), group = "gender", grouping = "HH" ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.